home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / tokyo / rescue.dcr / 00046_ÉXÉCÉbÉ`.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  1.2 KB  |  54 lines
  1. on initsw
  2.   global gswlist
  3.   set gswlist to "18,21,24,19,22,25,20,23,26,0"
  4. end
  5.  
  6. on checksw
  7.   global gswlist
  8.   set j to 0
  9.   set l to 0
  10.   set i to the mouseCast
  11.   if i > 0 then
  12.     repeat with k = 1 to 9
  13.       if i = integer(item k of gswlist) then
  14.         if k < 4 then
  15.           if the mouseDown then
  16.             set the puppet of sprite (k + 26) to 1
  17.             set the castNum of sprite (k + 26) to i + 2
  18.           else
  19.             set the puppet of sprite (k + 26) to 1
  20.             set the castNum of sprite (k + 26) to i + 1
  21.           end if
  22.           set l to k + 26
  23.           exit repeat
  24.           next repeat
  25.         end if
  26.         if k < 7 then
  27.           if the mouseDown then
  28.             set the castNum of sprite (k + 23) to i + 1
  29.           end if
  30.           set l to k + 23
  31.           exit repeat
  32.           next repeat
  33.         end if
  34.         if the mouseUp then
  35.           set j to k - 6
  36.           set the puppet of sprite (k + 20) to 0
  37.         end if
  38.         set l to k + 20
  39.         exit repeat
  40.       end if
  41.     end repeat
  42.   end if
  43.   clearsw(l)
  44.   return j
  45. end
  46.  
  47. on clearsw n
  48.   repeat with i = 27 to 29
  49.     if i <> n then
  50.       set the puppet of sprite i to 0
  51.     end if
  52.   end repeat
  53. end
  54.